Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/PROGTOOL/FST30A.ZIP;1/MYKINDOF.MOD

Modula Implementation | 1992-09-20 | 308 b | 13 lines

IMPLEMENTATION MODULE MyKindOfProgrammers;
FROM Strings IMPORT CompareStr;
CLASS Modula2Programmer;
  PROCEDURE isSmart() :BOOLEAN;
    BEGIN
      RETURN CompareStr(compilerVendor,"FST") = 0;
    END isSmart;
  INIT
    compilerVendor := "FST";
END Modula2Programmer;

END MyKindOfProgrammers.